ccccccccccce Lk —111111141 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL 114444441 UUU UUU IIIIIIIIIIIIIIL LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL —111 UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL —1141 UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL —111111111 UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL —1111111141 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC IIIIIIIIIIIIIIIä HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 


**F ILE**1D**CNVCLIATB 


CCCCCCCC =NN NN VV VV cccccccc «Lk IIIT] AAAAAA TTT 
Cccccccc NN NN VV VV ceccecccc «LL 111111 AAAAAA TTT 
cc NN NN VV vw CC LL II AA 
cc NN NN VV vw CC LL II AA AA 
cc NNNN NN VV vv CC LL II AA Aa 
cc NN NN VV vw CC LL I] AA AA 
cc NN NN NN VV vv cc LL I] AA AA 
cc NN NN NN VV vw cc LL II AA AA 
cc NN NNNN VV vv CC LL II AAAAAAAAAA 
cc NN NNNN VV vw cc LL II AAAAAAAAAA 
cc NN NN VV VV cc LL I] AA AA 
cc NN NN vv cc LL II AA AB 
CCCCCCCC NN NN VV cccccccc = LLLLLLLLLL III! AA AA 
CCCCCCCC NN NN VV eccertt IIIIIIIIII 111111 AA AA 
LL III] SSSSSSSS 
LL 111111 SSSSSSSS 
LL I] S$ 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL —111111 SSSSSSSS 
LLLLLLLLLL 111111 SSSSSSSS 
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-TITLE CNVCLIATB = CONVERT ASCII TO BINARY 
- IDENT Woesdo0" 


PARAARAARAAAAAAALALALALAL LALA ASAE EEE SEE SEER REE TREES E EERE SEER EEC TS | 


COPYRIGHT (c) 1978 1380. 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
ee 
* 
® 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
NLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
* 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 
* 
* 
® 
® 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: COMMAND LANGUAGE INTERPRETER UTILITIES 
ABSTRACT: 


THIS SUBROUTINE CONVERTS AN UNSIGNED ASCII NUMERIC STRING TO 
AN UNSIGNED, SINGLE PRECISION VALUE. 


ENVIRONMENT: USER MODE 
AUTHOR: C. A. MONIA , CREATION DATE: 15-AUG-1977 
MODIFIED BY: 


e 5% VERSION 
01 - 


101. ~T. Halvorsen 27-Jun-1979 ‘ 
Change PSECT name to avoid conflicting psects warning with RTL 
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CLIUTL.S SeNV CLIATB.MAR;1 (1) 


—e 5 

ASCII TO BINARY 15-See 7:56 VAX/VMS © v04-00 

ONS =1982 33 if: § LUTE i. SREJENVCLIATB.MAR; 1 
.SBTTL DECLARATIONS 
: INCLUDE FILES: 


CNVCLIATB - CONV 
vousb00 DECLAR 


OWN STORAGE: 
ASCII TO BINARY CONVERSION TABLE 


o 
So 
So 
So 


«-PSECT CNVCLIATB,EXE,RD,NOWRT 


49 
0 
: SCLIMSGDEF ; DEFINE CLI STATUS VALUES 
8 
9 
60 
61 
68 
64 CVTABL: .ASCII /0123456789ABCDEF/ ; ALL LEGAL NUMERICS 


SOOoOQOQoQoQoooooooooooo 


SOooooooooooooooscosao Ym 


SOQOoQooooooooo 


42 41 39 38 37 36 35 34 33 32 31 39 
46 45 44 4 
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V04 CNVCLIATB = CONVERT ASCII TO SINGLE-PREC 4=SEP=1984 23:15:11 CCLIUTL.SRCJCNVCLIATB.MAR; 1 (1) 
. 66 .SBTTL CNVCLIATB = CONVERT ASCII TO SINGLE-PRECISION BINARY | 
1 és p++ 
: FUNCTIONAL DESCRIPTION: 
1 ? ; THIS SUBROUTINE CONVERTS AN ASCII STRING TO A SINGLE PRECISION 
i ; BINARY VALUE. THE STRING IS CONSIDERED AS AN UNSIGNED VALUE. 
oi fh ; THE CONVERSION RADIX IS ONE OF THE FOLLOWING: 
1 i: ; LIBSCVTCLIDTB = CONVERT DECIMAL TO BINARY 
1 77 : LIBSCVTCLIOTB = CONVERT OCTAL NARY 
01 £8 ; LIBSCVTCLIHTB = CONVERT HEXADECIMAL TO BINARY 
01 0 : CALLING SEQUENCE: 
9019 3 : JSB LIBSCVTCLIXXX 
0010 s + iNPUT PARAMETERS: 
0010 86 ; R2,R3 = DESCRIPTOR FOR STRING TO BE CONVERTED 
0010 3 : IMPLICIT INPUTS: 
0010 89: 
818 9 NONE 
0010 9 ; OUTPUT PARAMETERS: 
9019 34 : RO = CLIS_NORMAL, SUCCESS: 
9019 36 : R1 CONTAINS THE DOUBLE PRECISION RESULT 
0010 («98 : RO = CLIS_IVCHAR, INVALID NUMERIC CHARACTER FOUND 
9019 33 : RO = CLISTIVVALU, VALUE EXCEEDS A SINGLE PRECISION INTEGER 
9010 191 + IMPLICIT OUTPUTS: 
0010 198 : R3 = ADDRESS OF BYTE FOLLOWING LAST CHARACTER OR ONE BYTE 
0010 104 : PAST AN INVALID CHARACTER 
0010 106 t COMPLETION CODES: 
4 198 ; SEE ABOVE 
140 : SIDE EFFECTS: 
001 118 ; R2 1S DESTROYED 
10 113: 
eh he 
116 .ENABL LSB 
1 118 LIBSCVTCLIDTB:: : 
50 A 00 1 ROVL #10,R0 ; GET RADIX 
1 131 LIBSCVTCLIOTB:: ; 
50 08 pO 0015 122 MOVL  #8,RO > GET RADIX 
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v04 CNVCLIATB = CONVERT ASCII TO SINGLE-PREC ——— — [ annie sre Re Ie CNVCLIATB.MAR; 1 (1) 
03 11 18 123 BRB 10$ ; 
1A 126 een | tage ; 
50 610 60 iA ! 5 108: #16,R0 ; GET RADIX 
0071 8F 6B 1D 61 $ PUSHR #*M<RO,R4,R5,R6> : SAVE meST er ERs AND RADIX 
5 D4 ; } 8 208 CLRL R5 : CLEAR RESUL 
54 00030001 8F 44 130 MOVL #CLIS_NORMAL ,R4 3 ASSUME SUCCESS 
ie A 13) DEC R ; DECREMENT BYTE COUNT 
D «TF 6 1 BLSSU 303 : IF _LSSU DONE 
54 00038050 8F go 0 1 VL —664 IVCHAR ,R4 ; ASSUME INVALID CHARACTER 
3 A 8 134 MOVZBL : GET NEXT CHARACTER 
04 3 E1 135 BC 4 Roe 338 : BRANCH IF 0 - 
00 50 0 E5 8 25$ BBCC #5,R0,25$ ; CONVERT TO UPPER CASE ALPHA 
BB AF 6€ 50 3A 094 138 LOCC 0 (SP) ,CVTABL ; SEARCH FOR NUMERIC CHARACTER 
—1* i 04 139 EQL : IF EQL_ INVALID CHARACTER 
50. 6E) = = 50 C5 004 140 SUBL3 : CONVERT INDEX TO NUMBER 
54 00038088 8F D0 004 141 MOVL sit LivALu, R4 ; ASSUME OVERFLOW 
55 50 6€ 55 7A 005 16 EMUL : COMPUTE BINARY VALUE 
56 05 005 14 TSTL : TEST FOR OVERFLOW 
co 84 Vee 30$ BEQL : IF EQL CONTINUE 
50. 54 7D 0058 123 MOva R4,RO ; GET STATUS AND RESULT 
0074 8F BA 005 14 POPR #*M<R2,R4,R5,R6> : RESTORE REGISTERS 
8 148 RSB : 
06 149 
006 150 ~END 


r 
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cerraoo 
eereces ve 


eecesecswoe 222224 
! Psect synopsis ! 
tener wececo seeceece + 
PSECT name Allocation PSECT No. Attributes 
» 6 « 0000000 ( 4 9 ( 0.) NOPIC USR CON ABS LC 
SABSS 4 4 944 ( -) O71 ¢ #1.) NOPIC USR CON ABS LCL EXE 
CNVCLIATB 00000635 ¢ -) 02 ¢ 2.) NOPIC USR CON REL tULC 


feos see aeceeosesces esas ese + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 


Initialization 13 
Command 


00:00:00.09 : 
rocessin 11 0:00:00.88 0:00:03 
fess) ° 16? 00:00:09: 6 00:00:08-15 
pyanes table sort 5) —838 -} Bo: 8383 
Symbol table output 3 8 0:00:09 0:00;00-09 
Psect synopsis output 4 0:00:00. 0:00:00.0 
Cross-reference output 8 00: 8:38:89 B08 :99-09 
Assembler run totals 35 00:00:03.91 00:00:15.16 


The working set Limit was 750 pages. 

9141 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 157 non-local and 4 local symbols. 
150 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


eee ee mem eee ee ree wee eee + 


+ 
: Macro Library statistics H 


Macro Library name Macros defined 


_$255$DUA28: CLIUTL .OBJICLIUTL MLB: 1 0 
“$255$DUA g: SYS -OBJ L1B.MLB;1 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 4 

TOTALS (all Libraries) 4 


217 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CNVCLIATB/OBJ=0BJ$:CNVCLIATB MSRC$:CNVCLIATB/UPDATE=(ENH$: CNVCLIATB) +EXECMLS/LIB+LIBS:CLIUTL/LIB 
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moet 33:72:36 LCE UTL. SREJENVCL IATB.MAR: 1 ” (1) 


L NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR RD 


WRT NOVEC BYTE . 


L NOSHR EXE RD NOWRT NOVEC BYTE 


004' AH-BT13A-SE J 
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